unit TerminaFechamento;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Funcoes, ExtCtrls, DmCaixa, Buttons, DmVariaveis;

type
  TFormTerminaFechamento = class(TForm)
    Label1: TLabel;
    EdtCliente: TEdit;
    Label2: TLabel;
    EdtEndereco: TEdit;
    Label3: TLabel;
    EdtCpf: TEdit;
    Label4: TLabel;
    EdtSerie: TEdit;
    Label5: TLabel;
    EdtObserva: TEdit;
    Bevel1: TBevel;
    Bevel2: TBevel;
    EdtObserva2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
    FrmTermFecModResul : integer;
  public
    { Public declarations }
  end;

var
  FormTerminaFechamento: TFormTerminaFechamento;

implementation

{$R *.DFM}

procedure TFormTerminaFechamento.FormShow(Sender: TObject);
begin
  EdtSerie.SetFocus;
end;

procedure TFormTerminaFechamento.FormKeyPress(Sender: TObject;
  var Key: Char);
begin
  if key=#13 then begin
    key:=#0;
    perform(WM_NextDLGCtl,0,0);
  end;
  if key=#27 then FormTerminaFechamento.Close;
end;

procedure TFormTerminaFechamento.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  ModalResult := FrmTermFecModResul;
  Action := cafree;
end;

procedure TFormTerminaFechamento.BitBtn1Click(Sender: TObject);
begin
  if (TamStr(EdtSerie.Text) > 0) and (Trim(EdtSerie.Text)<>'SERIE:') then
    TmpSerie   := EdtSerie.Text
  else
    TmpSerie   := '';

  if (TamStr(EdtObserva.Text) > 0) and (Trim(EdtObserva.Text)<>'OBS:') then
    TmpObserv1 := EdtObserva.Text
  else
    TmpObserv1 := '';

  if (TamStr(EdtObserva2.Text) > 0) and (Trim(EdtObserva2.Text)<>'OBS:') then
    TmpObserv2 := EdtObserva2.Text
  else
    TmpObserv2 := '';

  if (TamStr(EdtCliente.Text) > 0) and (Trim(EdtCliente.Text)<>'NOME:') then
    TmpCliente := EdtCliente.Text
  else
    TmpCliente := '';

  if (TamStr(EdtEndereco.Text) > 0) and (Trim(EdtEndereco.Text)<>'ENDER:') then
    TmpEndereco := EdtEndereco.Text
  else
    TmpEndereco := '';

  if (TamStr(EdtCpf.Text) > 0) and (Trim(EdtCpf.Text)<>'CPF/CNPJ:') then
    TmpCNPJCPF := EdtCpf.Text
  else
    TmpCNPJCPF := '';

  FrmTermFecModResul    := 1;
  FormTerminaFechamento.Close;
end;

procedure TFormTerminaFechamento.FormCreate(Sender: TObject);
begin
  if TamStr(TmpSerie) > 0 then
    EdtSerie.Text := TmpSerie
  else
    EdtSerie.Text := 'SERIE:';

  if TamStr(TmpObserv1) > 0 then
    EdtObserva.Text := TmpObserv1
  else
    EdtObserva.Text := 'OBS:';

  if TamStr(TmpObserv2) > 0 then
    EdtObserva2.Text := TmpObserv2
  else
    EdtObserva2.Text := 'OBS:';

  if TamStr(TmpCliente) > 0 then
    EdtCliente.Text := TmpCliente
  else
    EdtCliente.Text := 'NOME:';

  if TamStr(TmpEndereco) > 0 then
    EdtEndereco.Text := TmpEndereco
  else
    EdtEndereco.Text := 'ENDER:';

  if TamStr(TmpCNPJCPF) > 0 then
    EdtCpf.Text := TmpCNPJCPF
  else
    EdtCpf.Text := 'CPF/CNPJ:';

  FrmTermFecModResul := 2;
end;

procedure TFormTerminaFechamento.BitBtn2Click(Sender: TObject);
begin
  FrmTermFecModResul := 2;
  FormTerminaFechamento.Close;
end;

End.
